home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / XAMPP 1.4.14 / xampp-win32-1.4.14-installer.exe / xampp / php / pear / docs / tctest.php < prev   
PHP Script  |  2004-03-24  |  2KB  |  46 lines
  1. <?
  2.     // The ugly bit of code below loads the TCLink extension if it is not
  3.     // already.  You can skip all of this if "extension=tclink.so" is in
  4.     // your php.ini, or you can make a single call to dl("tclink") if
  5.     // tclink.so is in your PHP extensions path ("extension_dir").
  6.     if (!extension_loaded("tclink"))
  7.     {
  8.         $extfname = getcwd() . "/modules/tclink.so";
  9.         echo "TCLink extension not loaded, attempting to load manually from $extfname...";
  10.  
  11.         // The excessive "../" bit allows us to back up out of the extension dir
  12.         // so that we can access the current working directory.  It is only done
  13.         // this way so that tctest.php may work out of the box on any system, you
  14.         // can get rid of this if you do a global install of TCLink.
  15.         $extfname = "../../../../../../../../../../../.." . $extfname;
  16.         if (!dl($extfname)) {
  17.             echo "FAILED!\nAborting this test script, please check to make sure the module is properly built.\n";
  18.             exit(1);
  19.         }
  20.         echo "success.\n";
  21.     }
  22.  
  23.     print "\nTCLink version " . tclink_getversion() . "\n";
  24.     print "Sending transaction...";
  25.  
  26.     // Build a hash containing our parameters
  27.     $params['custid'] = 'TestMerchant';
  28.     $params['password'] = 'password';
  29.     $params['action'] = 'sale';
  30.     $params['media'] = 'cc';
  31.     $params['cc'] = '4111111111111111';
  32.     $params['exp'] = '0110';
  33.     $params['amount'] = '100';
  34.     $params['name'] = 'Joe PHP';
  35.  
  36.     // Send the hash to TrustCommerce for processing
  37.     $result = tclink_send($params);
  38.  
  39.     print "done!\n\nTransaction results:\n";
  40.  
  41.     // Print out all parameters returned
  42.     while (list($key, $val) = each($result))
  43.         print "\t$key=$val\n";
  44. ?>
  45.  
  46.